perm filename Z.DAT[LK,LCS] blob sn#159124 filedate 1975-05-14 generic text, type T, neo UTF8
 RCDFLG←-1;                                                                 
 
  < Z    .DAT  --  RANDOM NUMBER=     1
 PLAY;
 TOOT     0.000    1.000
;PRINT(P1);< TOOT    1
 FINISH; < Z    .DAT